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Introdução 


Embora todos os micros nacionais 
utilizem a linguagem BASIC, existem 
vários dialetos desta linguagem usados 
1 em micros de diferentes marcas e 
modelos. Os micros nacionais podem ser 
I divididos em seis “famílias”; a família 
I Spectrum (TK-85, TK-90X), a família 
TRS-80 (DGT-1000, CP-500 etc.), a 
1 família TRS-80 Color (CP-400), a família 
Apple (Micro Engenho, Ap-11 etc.), a 

família MSX (Expert, Hot Bit) e a 

I família PC (Ego, 1-7000 etc.). Se voce 
não souber a que família pertence o seu 
micro, poderá obter a informação em 
I qualquer loja especializada. 

Neste livro, a listagem principal de 
cada programa é para os micros da 
família TRS-80. As linhas que precisam 
ser mudadas para que o programa 
funcione em outros computadores estão 
indicadas por símbolos e as modificações 
I aparecem no final de cada listagem. Os 
símbolos são os seguintes: 

O família TRS-80 Color 
▼ família Spectrum 
• família Apple 
■ família MSX 
t família PC 

A Commodore 64 e VI C 20* 

I Quando você vir o símbolo da família a 
que pertence o seu micro, procure no 
final da listagem uma linha com o 
mesmo símbolo e o mesmo número. Use- 
a no lugar da linha correspondente da 
listagem principal. Na página 
especiais para os usuários do TK-zuuu, 
do MSX e do PC. 


Como carregar e executar os 
programas 


•Até o momento não têm equivalentes no Brasil. 


Escreva as Unhas exatamente como na 
listagem, incluindo todos os espaços e 
sinais de pontuação. Depois de bater 
cada linha, verifique na tela se tudo esta 
certo antes de apertar a tecla RETURN 
(ou a tecla equivalente para o seu micro). 
Para começar o jogo, entre com RUN. 

Em alguns jogos, as coisas acontecem 
muito depressa, de modo que é melhor 
ler atentamente as instruções antes de 
começar. Se o programa não funcionar 
corretamente, o melhor é listá-lo e 
comparar as instruções com as do livro, 
uma por uma, até descobrir onde está o 
erro. 

Experiências com os jogos 

Este livro contem varias sugestões para 
modificar e ampliar os programas, mas 
não tenha medo de introduzir suas 
próprias alterações. Não há perigo de 
danificar o computador; se sua idéia nao 
der certo, sempre poderá voltar ao 
programa original. 

Você provavelmente terá vontade de 
mudar a velocidade de alguns jogos, 
especialmente depois que estiver 
familiarizado com eles. As instruções 
para fazer isso estão perto da listagem de 
cada programa. 

Se o seu computador é capaz de gerar 
cores ou sons, consulte o manual para 
descobrir como funcionam as instruções 
correspondentes e experimente usá-las nos 
programas deste livro. 


O programa Pesadelo se baseia em uma idéia de Brendon Kavanagh 

O Ma|Ó dos Números, Aspirador de Fanlasmas e Labirinto Assombrado foram 

MuVhe^ArLnba^o^eTcrUo por Vai Robinson, Cemitério por Alan Ramsey 
e Casa Maluca por Keith Campbell. 

| Ilustrações: Rob MeCaig 
Edição: Jenny Tyler 
Edição dos programas: Chris Oxlade 


Pesadelo 

Você adormeceu quando estava programando o seu computador. De repente, ele 
começa a f uncionar sozinho e passa a insultá-lo e a mostrar números na tela. Para 
vencer o computador, você precisa repetir os números que aparecem. A contagem 
inicial de 300 aumenta quando você acerta um número e diminui quando erra. Se 
chegar a 500, o computador será derrotado, mas se chegar a zero, você se tornará 
escravo do micro, É um pesadelo! Quem ganhará? 


10 LET Fl=” 

▼ 20 DIH Clt5> 

30 LET 5=300 — 

t0 LET Cl Ut «"SEU BURROS 
50 LET CIÍ2H"Hflü PQDE COMIGO!' 

60 LET CK3)='S0Ü HSU5 ESPERTO!' 

70 LET Clt4)=-ftfifiiX0 03 
80 LET CI(5)=’ESTR RCERTRNDQ HUITQ 1 "- 
a • 9 0 CLS — 


Como funciona 

— lniciaü/ii a contagem de pontos. 

— Guarda os comentários na 
memória. 

J~” Apaga a tela. 


fiài# 100 LET IMllTUMKDltmt 


Escolhe um número de I a e o 
guarda em N. 


110 FBlHT mm-N "T — Imprime N e a contagem (S) em 

120 PRIMI TflBUsl-s _J diferentes locais da tela. 


♦▼AM no IF H PD 1 0 ) > 0 „ 5 THEH GOTO 160 — 

H0 FRINT 

150 PRIMT CIUNTtS/100)H) 

160 1F Sí 60 THEH PR INI "ESTfl PERDIDO!" 
170 IF S> 440 THEH PRINT "SOCORRO 1 " 

▼ ISO FM l-l TD 100 — 

a* 190 LET flt=LN*ETi 

200 iF mr* mu lei fi=ri 
210 «EJCt I — 1 



220 LET S-S-IO 


Decide se vai imprimir mensagens. 

Imprime mensagens que dependem 
da contagem de pontos. 

Verifica se você está apertando 
uma tecla; se está, guarda em K$. 

I) iminui a contagem de 10. 


Se você apertou a tecla errada, pula 

230 IF URMFSIOH mu GOTO 250 para para nào aumentar a 

contagem na linha 240. 

240 LET S=S+10+Ht2 .. 

250 LF S<0 THEH GOTO £00 “1 Veritica se voce ganhou ou perdeu 

260 IF S>500 THEH GOTO 300 -J 11 !**£*>* 



270 GOTO 90 

280 PSIHT N V0CE E m ESC RflVB ! " 

290 ST0P 

300 PR INI "VOCE GftNHOU (DESTA VEir 
310 ST0F 

A listagem acima é para o TRS-80. Para 
outros micros, faça as mudanças abaixo. 


Volta para outra tentativa. 


A rapidez do jogo depende deste 
número. Você provavelmente terá 
que ajustá-lo de acordo com a 
velocidade do seu micro. Quanto 
maior o número, mais lento o jogo 


▼M Ülfl CU 5 r 23) 

• 90 HM 

*90 PftIKT CHRK147) 

*■•100 LET N=LNHRND(1)t9)+1 
♦▼100 LET R=IHT(RNDI9HI 
*■•130 IF RND< 11)0.5 MH G0T0 160 
♦▼130 IF RHDHS.5 THEH GOTO 160 
▼ 190 FOR [=1 TD 50 

• 190 IF PEEKM6384))I27 

THEH GET RS 

• 190 EET AS 


Sugestão 

A contagem de pontos é 
controlada pelas linhas 30, 220 e 
240. Mude os números nessas 
linhas para ver o que acontece. 

Problema 

Como você faria para o 
computador mostrar letras na 
tela em lugar de números? 




usando 


O Maeo dos Números submete todos os visitantes a este desafio. Ele faz os ,lume ™ s 
? V« 8 o aparecerem uo ar e depois joga dois dados. Você tem que dar a ele dois dos 
númíros que apareceram uo ar e cuja soma seja igual à soma dos numeros dos dois 
dados Depois que você usa um número, ele desaparece e não pode ser usado de 
novo S Para°ganhar, você precisa fazer todos os números desaparecerem antes <le 

8 tentativas (você ganha uma tentativa extra cada vez que os dados 
dão uma dobradinha). Você pode usar o zero como um dos numeros quanta» vexes 
luLr L nào puder obter a soma desejada, passe para a tentatrva seguinte 
^ j.i. Vaia minntfls vezes consegue derrotar o Mago. 
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DIH RUO) 


10 


LET T=B 

FOR 1=1 TO 
LET FU1>*1 
NEXT 1 
CLS 

PRINT "0 MflGO DOS 
LET fl<l>=l 
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NUMEROS" SPRINT 


90 

100 

110 

120 

130 

HO 

150 

140 

170 

100 

190 

200 

#▼*■• 210 
220 
230 
240 
250 
240 
270 

200 

290 


LET V=0 

FOR 1=2 TO 10 - 

IF RtnOO THEN GOTO 150 
PR! MT M 
LET V=V+1 
GOTO 160 
PRINT 1-1 9 

NEXT I 

PRINT 

IF .7=1 THEN PRINT 

"ESTR É fl ULTINR TENTRTl Vfl"SGOTO 200 

PRINT "VOGE TEM "iTj" TENTRTl VRS" 

LET C=INT(RND(0>*4+1 > 


LET B=INT(RNCK 0 )* 6 +n 
PRINT *0S NUMEROS SRO 

PRINT "OURIS SRO OS SEUS?" 

IF 8=C THEN LET T=T+2 

INPUT N 

INPUT M 

IF H) 9 OR N>9 THEN PRINT 
"GRHNOE DEHR IS... TENTE DE NOVO" 
IF M>9 OR N>9 THEN GOTO 230 


IF H+NOB+C OR fl(N+l)=0 OR 
fl(h+l>=0 THEN GOTO 340 
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300 LET Rí M+l >=0 
310 LET flí N+l )=0 


320 IF V=8 RND (HOO OR NOO) THEN GOTO 370 l_ 
330 IF M=7 RNO MOO RND NOO THEN GOTO 370 — T 


340 LET T=T-1 *1F T>0 THEN GOTO 40 
350 PRINT "0 MflGO VENCEU" 

360 STQP 

370 PRINT "VQCE VENCEU" 

380 STOP 


A listagem acima £ para o TRS-80. Para os 
outros micros, faça as modificações abaixo. 

• 40 HOME 

A 60 PRIMI CHRIM471 
*■•£00 LET C=[RT(RND( 11*6+1) 

200 LET C=tMT(RHD*4+1 ) 

A ■ • 21 0 LET B a lHT(tHD(l)t6*l) 

#▼210 LET l=IÍT(I»tt+1) 



Como o programa 
funciona 

Cria uma matriz, A. 

T é o número de tentativas. 

Coloca 1 em Iodos os elementos de 
A. 

Coloca 1 em Aíl), para que você 
possa usar O quantas vezes quiser, 

V é o número de números que já 
foram usadas. 

- Imprime os números. Se A{I) é zero, 
o número 1-1 já foi usado. 

Imprime o número de tentativas que 
restam. 

Escolhe os números dos dados e os 
imprime. 

No caso de uma dobradinha, 
aumenta o número de tentativas que 

restam. 

Recebe os seus números e verifica se 
são válidos. 

Se a soma está errada ou um dos 
números já foi usado, volta para 
outra tentativa. 

Se os números estão certos, coloca 0 
nos elementos correspondentes de A 
para mostrar que já foram usados. 

Se os números acabaram, você 
venceu. 

Diminui de 1 o número de tentativas 
e verifica se elas acabaram. 


Veja se consegue fazer o 
computador voltar 
automaticamente para um 
novo desafio e manter um 
registro do número de vezes 
que você e o Mago venceram 
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Neste jogo, os fantasmas são números que passam na tela. Para capturá-los, você 
aciona o Aspirador de Fantasmas apertando a tecla X, mas para que ele funcone e 
prlcíso que esteja com o mesmo número que o fantasma. Para aumentar o numero 
do aspirador, basta apertar a tecla M (quando o número chega a 9, volta de novo a 
0> O liando você deixa de aspirar um fantasma, ele rouba uma das suas vidas 
(jiidicadascomu barra, no cínlo superior esquerdo d. .ela). Veja qoau.os fauUsmas 

consegue aspirar. Como o programa 

funciona 

inicializa a contagem e o número do 

aspirador. 


10 LET S=0 l 

v=o — I 


20 LET Y=0 

30 LET L=3 

*▼*■•40 LET H=lNTlRHD(Q)tlO) 

50 LET l-l — 

a# 60 CLS 

70 PftlHT "ASPIRADOR DE FftHTHSHRS" íPRUCT 
80 FDR J=1 
90 PR1NT 
100 NEXT 
110 PRIHT 


120 PRIHT TR8Ul;ílíTRBtl8); ,, s";Y 


-Fixa o número de vidas. 

- Escolhe um número entre O e 9 para o 
fantasma. 

- Inicializa o contador da distância 
percorrida pelo fantasma. 

- Imprime na tela o número de vidas 
que restam. 

- imprime o fantasma, a barreira (:) e o 

asp irador. 


^Esteéum bom jogo para você 
acrescentar efeitos sonoros. 
Escolha um som paTa quando 
perder uma vida e outro para 
^quando capturar um fantasma. 


Fantasmas 


de 




130 FDA 1-1 TO 50 
140 NEXT K 

a# 150 LET Bf=lNKEYI 

160 IF B*-"r THEN GOTO 240 
170 IF B*=“H" THEN LET Y=Y»1 

180 IF Y=10 THEN LET Y-0 

190 LET 1=1+1 

200 IF Hl 8 THEN GOTO 60 

210 LET L=L-1 

220 IF L>0 THEN GOTO 40 

230 GOTO 310 

240 IF YON THEN GOTO 190—, 
250 PRINT "PEGOU UH" 

260 print «mm 

270 FOR K=1 TO 300 

280 NEXT K 

290 LET S=S+(18-I) 

300 GOTO 40 
310 CLS 

320 PRINT "VQCE FEZ" 

330 PRINT S; "PONTOS" 

340 PRINT 

350 PRINT "DE NOVO? (S/N)“ 



360 INPUT RS 
370 IF RS="S" THEN RUN 
380 IF RS='‘N“ THEN STOP 

Você pode mudar a velocidade 
deste jogo mudando o número 
da linha 130; quanto menor o 
número, mais rápido o jogo. 
Também pode tornar o jogo 
mais difícil diminuindo o 
número que aparece nas linhas 
120 e 200. 


Verifica se você está apertando uma 
tecla. Se é X, vai para 240; se é M, 
aumenta o seu número de 1. 

Faz seu número voltar a zero quando 
ele passa de 9. 

Incrementa o contador de distância. 

Se o fantasma ainda nâo chegou à 
barreira nem foi aspirado, volta para 
imprimir o fantasma na nova posição. 

Se o fantasma chegou à barreira, você 
perde uma vida. 

Se você ainda tem vidas, volta para 
sortear outro fantasma. 

Verifica se o seu número é igual ao do 
fantasma; se não í, continua a 
incrementar o contador de distância. 


► 



Mulher- Aranha 

Socorro! É a Mulher-Aranha! 
Felizmente, hoje ela está de bom humor. Se você conseguir 
está pensando, ela o deixará ir. Se não, será transfo 
Para descobrir a letra, dê uma palavra à Mulher- Aranha e 
i não a letra. 



10 LET 6=0 
A «20 CLS 

♦▼a ■•30 LET T=INT<RND(0)*26+Ó5> 1 

40 LET TS=CHRS(T) J 

50 PRINT "fi HULICR-ARRNHR" 

60 PRINT "Jfl ESCOLHEU UHR LETRR" 

70 PRINT 

80 PRINT “Dl GR UHR PALAVRA" ~| 

90 PRINT 
100 PRINT 

110 IWUT US — 1 

120 LET 6=6+1 ~ 

130 L=LEN(UI1 ~| 

140 IF L<4 OR L)B THEN GOTO 70 J 
150 LÉT F=0 "™ 

160 FOR 1=1 TO L 

▼ 170 LET RS=HIO$(US,l r ] ) 

180 IF AS=TI THEN F=1 
190 NEXT I 

200 IF F=1 THEN GOTO 280 - 1 
210 PRINT 

220 PRINT "NRO ESTR NESTfl PALAVRA 
230 FOR fl=l TQ 300 ~| 

,240 NEXT R -* 

250 IF G>15 THEN GOTO 400 

260 CLS H 
270 GOTO 70 J 
2B0 PRINT "SIN 
290 PRINT 

300 PRINT "QUER DAR Uh PALPITEI S/NP' 
310 INPUT RS 

320 IF «S="r THEN GOTO 250 
330 PRINT 

340 PRINT "QUAL 0 SEU PALPITE ? 

350 INPUT GS 

360 IF GIOTS THEN GOTO 410 
370 PRINT "ESTR BEh - POOE IR" 

380 PRINT "(DESTA VEZ>" 


Como funciona 


Escolhe um número, transforma-o em 
letra e guarda-o em Tf* 


Pede uma palavra 


Incrementa o número de tentativas, 


Verifica se a palavra é grande ou 
pequena demais. 


Verifica se a palavra contém a letra 
Em caso afirmativo, vai para 280. 


imprime uma mensagem se a palavra 
nâo contém a letra. 


í- Loop” de espera para que você 
possa ver a mensagem. 


Encerra o programa se suas tentativas 
acabaram. 


Apaga a tela e volta para pedir outra 
palavra. 


ESTA NESSR PALRVRR 


Imprime uma mensagem se a palavra 
contém a letra. Se você não quer dar 
um palpite, volta para pedir outra 
palavra. 


.Imprime mensagens diferentes se você 
acertou a letra ou não. 


Sugestões 

Veja o que acontece se você mudar o 15 na 
linha 250 por um número menor. E se 
mudar o 4 e o 8 na linha 140? 


Problema 

A Mulher-Aranha quer que você modifique 
o programa para fazer o seguinte: se a 
palavra contiver a letra escolhida, você terá 
direito a dois palpites, mas se o seu primeiro 
palpite estiver errado, perderá cinco 
tentativas. 


Cemitério 




Você está perdido em em cemitério e teit 
até meia-noite para encontrar a saída. 
Esqueletos espreitam nas sombras e 
poderão matá-lo de susto se você se 
aproximar demais. Você pode cavar 
buracos (cinco por jogo) para mantê-los 
afastados, mas tome cuidado para nao cair 
em um dos buracos que cavou. 

Você não pode passar por cima dos 
túmulos ( + ) nem dos muros do cemitério 
(:). Os buracos são representados por CU), 
você é um <*) e os esqueletos são (X). 

Veja se consegue escapar a tempo. 

Como o programa funciona 

Enche a matriz A de espaços 
vazios. 

Fixa o número máximo de 
buracos. 

Define os símbolos a serem 
usados. 

Guarda os muros na matriz. 

Escolhe a posição dos túmulos. 

Fixa as posições iniciais do 
jogador e dos esqueletos. 

Guarda os esqueletos na matriz. 
Calcula a nova posição do 
jogador. 

Verifica se há alguma coisa na 
nova posição. Se não há. move 
o jogador para lá. 

Imprime vários finais para o jogo. 
Imprime o cemitério. 

Coloca um buraco na matriz se 
você assim o quer. 

Move os esqueletos. 



180 - 260 : 

270 - 310 : 

320 - 390 : 

400 - 420 : 

440 - 620 : 

630 - 720 : 


750 - 830 : 

840 - 970 : 

1020 - 1070 : 

1080 - 1280 : 


r y 

s />y • '■ 

■ s y 

i ' i 


1 l 


*•10 CLS 

20 PR1NT "CEhlTERIO" 

30 01H fl(10 r 2Q> 

40 D1M 6(6) 

50 FOR 1=1 T0 10 
60 FOR J=1 TO 20 

▼ 70 LET nu,j>=flscr "> 

80 HEXT J 

90 NEXT I 
100 LET W=0 
110 LET X=5 
▼120 LET Y=flSCt"*"l 

▼ 130 LET e=flSCC’+“) 

▼ 140 LET C=HSCr0’*) 

▼ 150 LET 

▼ 160 LET E=RSCC'X'') 

▼ 170 LET Z=ASCr M ) 

180 FOR J=1 T0 10 
190 LET fi(J r l)=0 
200 LET fl( J,20)=D 
210 NEXT J 

220 FOR J=1 TO 20 
230 LET 8O,J>=0 
240 LET RU0,J)=D 
250 NEXT J 
260 LET R(9,20í=Z 
270 FOR J=1 TO 20 
#▼*■•280 LET F=1NT(RND( 01*7+2) 
#▼*■•'290 LET G=tNT(RNDÍ 01*15+3) 
300 LET R(F,G)=B 
310 NEXT J 
320 LET M=2 
330 LET N=2 
340 LET 8(21=19 
350 LET B(4>=19 
360 LET 8 (61=19 
370 LET B(1 1=4 
380 LET B (31=3 
390 LET 8(51=2 
400 FOR J=1 T0 5 STEP 2 
410 LET R(8tJ>,B(J+in=E 
420 NEXT J 
430 GOSUB 840 
440 PRINT "PRRR ONDE UOCE 
URI (N,L,S 0U 01"; 

450 INPUT RS 

460 IF RS='N" THEN G0T0 510 
470 IF flS="L" THEN GOTO 540 
4B0 IF THEN GOTO 580 

490 IF R5="Q" THEN G0T0 610 
500 GOTO 450 


V - «, 

• .'.Aí 
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5 TO 
520 
530 
540 
550 
540 


570 

500 

590 

400 

410 

420 

430 

440 


450 

440 

470 

480 

490 

700 

710 

720 

730 

740 

750 

760 


LET T=N-1 
LET U=M 
GOTO 630 
LET T=N 
LET U=M+1 

1F A(T,U>=Z AND H=19 THEN 

GOTO 750 

GOTO 430 

LET T=N+1 

LET U=M 

GOTO 430 

LET T=N 

LET U=M-1 

IF A(T,U)=Z THEN GOTO 690 
IF fl(T,U)=D OR fl(T,U)=B 
THEN GOTO 670 
IF fl(T,U)=C THEN GOTO 780 
IF fl(T,U)=E THEN GOTO 810 
PRINT "NAO PODE" 

GOTO 440 
LET A(N,K)=Z 
LET N-T 
LET M=U 
LET A(N,M)=Y 
GOSUB 1020 
GOTO 400 

PRINT "VOCE ESCAPOU" 

PRINT "R NOTA PRRR 
0 SEU DESEMPENHO E 
1NT( (85-U)/60*(95+X) )-"T' 
STOP 

PRINT “UOCE CAIU EM UH" 
PRINT “DE SEUS PR0PR10S 
BURRCOS" 

STOP 

PRINT "ARGH! UM ESQUELETO" 
PRINT "MATOU UOCE OE SUSTO" 
STOP 

LET R(N,H)=Y 
CLS 

LET R=N 
LET S=M 
LET U=U+1 

IF U>40 THEN GOTO 980 
PRINT "MOVIMENTO NUMERO ";U 
FOR I«1 TO 10 


FOR 


TO 


20 


INT 


CHRSÍfU 


J) 


NEXT 


INT 


NEXT 


970 RETORN 

9B0 PRINT "0 RELOGIO BATEU" 

990 PRINT "MEIA-NOITE" 

1000 PRINT "AflRARAAHHHHHHHI ! ! !" 
1010 STOP ' 

1020 IF X=0 THEN GOTO 1080 
1030 PRINT "QUER CAVAR UM 
BURHCOÍS OU N)"; 

1040 INPUT 85 

1050 IF 8SO"S" THEN GOTO 1080 

1040 LET X=X’l 

1070 LET A<R,S>=C 

1030 FOR J=1 TO 5 STEP 2 

1090 LET T=B(J) 

1100 LET U=B ( J+l 1 
1110 IF fi(T ,U+1 )=Y THEN GOTO B10 
1120 IF A(T,U-1>=Y THEN GOTO 810 
1130 IF A(T“1 ,U)=Y THEN GOTO 810 
1140 IF R(T+1 ,U)=Y THEN DOTO 810 
1150 IF A$="0" THEN GOTO 1270 
1140 IF H$="S M AND A(T+1 r U)=Z 
THEN GOTO 1240 

1170 IF RS=*'N" AND AtT-1 U)=Z 
THEN GOTO 1250 

1180 IF AS=”L" ANO R<T,U+1)=Z 
AND M>U THEN GOTO 1210 
1190 IF RS=**L" AND R(T r U-1í=Z 
THEN GOTO 1220 
1200 GOTO 1270 
1210 LET B (J+l )=B( J+l )+2 
1220 LET Bí J+l 1=8 C J+l )-l 
1230 GOTO 1260 
1240 LET 3 ( J) =3 ( J)+2 
1250 LET B(J)=8(J)-1 
1260 LET R(T,U)=Z 
1270 NEXT J 
1280 RETURN 


A listagem acima é para o TRS-80. Para os 
outros micros, faça as mudanças abaixo. 


• 10,050 HOME 

AIO, 850 PRINT CKRSU47) 

▼ 70,120-170 Substitua ASC per CODE 
*■•280,290 Substitua RND(D) por RNDfll 
♦▼ 280, 290 Substitua RND(Q) por RND 



Casa Maluca 


Você está preso em uma casa estranha onde f***j!j e^T 1 você^poderi* correr para a 
menos as portas ficassem alinhadas poi um t j. c | ar alguns dos movimentos da 

Uberdade! Você encontrou um { * p art e de cima da tela) mudar de 

%%££%£ XttZZZttZi . porta mai , — P-~ - 
haver nenhum meio de controlar apor ta *jo jneio^ . , po de ouvir peg adas no 

JB BsrssssS ?z&sr • — es * 

se aproximando. Se não consegui r fugir a tempo... aaaas g B 

o seu computador tem som, veja se você N. 
consegue acrescentar efeitos sonoros aos ^ 


iUlISCgUt «viv^v— — 

passos e ao fim do jogo se você nao 
^conseguir escapar, j- 


Como funciona 


10 DIM P<3> — l 

ao oiM soí r 

O4VAM30 CLEfiR 130 = CLS 

40 PRIHT "CflSfl HRLUCR" 

30 LET Lí= 

OfvAno áO LET U=63 

70 FOR 1=) TO U 
80 LET L1=LS+'*" 


90 NEXT 
100 LET 
110 LET 
120 LET 
130 FOR 


l 

CT=240 
Sí 1 >=1 
S(3) 
1=1 T0 




140 

150 

*•160 

♦wnnlVO 
04v*»*l 80 

o*v*n*l 90 

200 

*▼*■•210 
220 
230 


*•240 

250 

260 

270 

280 

290 

*•*■•300 


LET Pd )=RND160) 

NEXT 1 

Q|_g 

FOR 1=2 T0 12 STEP 5 

PRlNTed**4),LS 

PR lNT6d*64+P ( d+3>/5> > , > 

HEXT l 

PRINTÊQ.CT 

IF CT<0 THEN GOTO 450 ; 

IF P(1)=P(2> RND P(2)=9t31 
THEN GOTO 390 
LET ZS=INKEYS 
IF Zl=" , ‘ THEN GOTO 
IF ZS= , X" THEN LET 
ZS=‘ , C“ THEN LET 
ZS="N" THEN LET 
Zt=”M" THEN LET 


“L 


300 

S<1 )»”1 
Sd)=t 
S(3)=-l 
S(3)=l 


Crta duas matrizes, uma para a 
posição <P) de cada porta e outra para 
a direção (S) em que está se movendo. 

Cria uma fila de estrelas com a 
largura (W) da tela e a guarda em LS. 

Inicializa o contador dos passos do 
fantasma. 

Fíxa a direção do movimento das 
portas no início do jogo. 

Escolhe as posições iniciais das três 
portas. 

Imprime as paredes e as portas. 

- Imprime a contagem dos passos do 
fantasma. 

_ Verifica se o fantasma alcançou você. 


íf 


'rir 


E3F 


Ptl)=1 
LET Pd I 1 


=W-4 


IF 
IF 

IF n intrt ui - 1 * ~ 

IF CT /25= I NT t CT / 25 > THEN LET V- 

P(2>=P(2>+RN0(20)-1Õ 1 

LET CT=CT-1 
LET P(ll*Pd)+S(l) 

LET Pl3XPO>+St3) 

FOR 1=1 T0 3 
[F Pd Kl THEN LET 
IF Pd)XU-4> THEN 
NEXT 1 
GOTO 170 
i LET L=P d )+l 
. FOR 1 = 1 T0 15 

[o4v*M4lO PRlNT0dá64+L> t "H" 

420 NEXT 1 

430 PRINT ‘*YOCE_ES£flPOy_ 

440 ST0P — 

450 PRINT "TRRDE DEMRIB 
460 PRINT "RRRRGGGHHHHtL 
470 ST0P 


Verifica se você ganhou. 

— Recebe instruções do teclado e, se 
necessário, inverte o sentido do 
movimento das portas. 

Movimenta a porta do centro a cada 

25 passos. 

Diminui a contagem de passos. 

Calcula a nova posição das portas. Se 
uma porta chega à, borda da tela, fica 
no mesmo lugar. 

Volta para uma nova tentativa. 

Imprime sua fuga e uma mensagem. 

. imprime uma mensagem quando você 
perde. 


* 




+ PC 

30 CLS 
60 LET U=79 

HO LET PU)-lNT(RMD*UJ-4) + l> 

170 FDR [-5 TO 15 STEP 5 
ISO LOCHTE 0, 1 : PR I MT LS 
190 LOCHTE PU/5) ,1 SPRINT “> (" 
210 LOCHTE 0,0: PRIMI CT 
300 1F CT/25=INT (CT/25) THEN LET 
P(2)-P<2>+IHT(RND*20)-10 
410 LOCHTE L r l :PR IHT "H" 

r wic 20 

30 PRINT CHRK147) 

40 LET U-21 

140 LET P(l) = INT<RNt>(l)*<U-4)Hl 
160 PR IHT CHRK 1 47) 

170 FOR 1-1 TO 3 
172 FOR J-l TO 5 
174 PR IHT 
100 HEXT J 

190 PRINT LEFTSCLS PH )>.'■) <■■. 

R IGHTSÍH, HB-Pll ) ) ) 

210 PRINT CHRIU9>,CT 
240 EET 21 

300 IF CT/25*] NT< CT/25) THEN LET 
P(2)=P(2)+INT(RND< 1 11201-10 
375 PRINT CHRli 19) 

395 PR IHT CHRSU9) 

410 PRINT THB(L)"H“ 


ue acontece se você mudar o 
número da linha 100? E se tirar 
o sinal de menos da linha 120? 
Mude os dois 25 da linha 300 
para outro número e veja se 
alguma diferença. 


SPECTRUn 


30 CLS 
40 LET IM1 

140 LET F(I)-1NT(RND*(U-4)«1> 

170 FOR 1=5 TO 15 STEP 5 
1B0 PRINT HT 1,0, L» 

190 PRINT HT ['Ptl/S),"} <“ 

210 PRINT HT 0,0 |CT 
300 IF CT/25» INTí CT/25) THEN LET 
P{2)=PÍ2)*1NT(RNM20)-10 
410 PRINT HT ] ,L|"N" 


4 APPLE 


30 HOME 
40 LET W=3? 

140 LET Pt 1 )=tNTlR«0U )*tU-4>}+l 
140 HOHE 

170 FOR 1=5 TO 13 STEP 5 
ISO YTflB(l) 

IBS PRINT Lt 
190 YTTOH) 

195 HTRBtPt 1/3) ) 

197 PRINT "> f 

210 VTHBt ) ) SHTHBtl )*PR1HT CT 

240 Zl- 1 - 

243 IF PEEK (-14304)) 127 THEN SET 21 
300 IF CT/23-1NK CT/25) THEN LET 
P t2)=P(2)+lNT(RN0n )«0)-10 
395 VTRB ( 1 ) 

410 PRINT TnB(L) ‘tr 


■ HSX 


30 CLS 
40 LET U=39 

140 LET P(I)=INT(RND(l)»ÍU-4)tl) 
170 FOR 1-5 TO 15 STEP 5 
100 LOCHTE 0,1 «PRINT Li 
190 LOCHTE F(1/5),I SPRINT ") (“ 
2>0 LOCHTE 0,0 SPRINT CT 
300 TF CT/23-INTt CT/25) THEN LET 
P(2)=P(2)+INT<RND( 1 )RZ0)-10 
410 LOCHTE L T l:PR1HT "M” 


A listagem à esquerda é para o TRS-80. 
Para os outros micros, faça as mudanças 
indicadas nesta página. 

OTRB-80 COLOR 

30 CLS 

60 LET 11=31 

140 LET P(1)=R«0(28) 

100 PftlNTK IR32) ,LS 

190 PR tNTit IR32+PI ( l+3)/5) ) ,*“> (" 

410 PR INTUÍ IÍ32+L) , ,CHRi04) , 0 jCHR*(34) 



Labirinto Assombrado 


p lim |ii^ a r assustador. Os corredores escuros não parecem levar 
sabe são mal-âssom brados? Você só pode ver o que eslá à (rente 
nesla direção. l*ode virar para a esquerda ou para a direita, mas 
seu ponto de vista. O único meto de escapar é chegar a cruz que 
Ppa! O lugar é mal-assctmhrado. sim! Os (antas 
você passa perlo dc um deles, é transportado insti 
labirinto. Aqui estão as tecias que você pode usar 
esquerda e M para virar para a direita. 

0*vah« 5 CLXflR 200 

10 DIH E170) — 

20 DIM VS(4,31 


Cria uma matriz para o labirinto. 

C’ria uma matriz para guardar a parle 
do labirinto que pode ser vista na tela. 

Cria uma matriz para guardar uma 
linha da matriz acima. 

liados para o labirinto; 1 = corredor. 

(I - parede, 9 = saída. 

. “l.oop" para guardar os dados na 
matriz E. 

- S é o número de vezes que o fantasma 
se moveu. 

■ Ci é a posição do fantasma. 

Escolhe uma posição inicial para o 

- jogador. 

_ Se a posição não fica em um corredor, 
volta para escolher outra. 

-Vai para a sub-rotina que posiciona o 
fantasma. 

- Escolhe a direção para onde o jogador 
está voltado no início do jogo. 

- Verifica se o jogador eslá ao lado de 
um fantasma; em caso afirmativo, 
escolhe uma nova posição para o 
jogador. 

- Incrementa o número de movimentos 
do jogador. 

__ \ cada 5 movimentos, vai para a sub- 
rotina que posiciona o fantasma. 


30 Dlrt F(31 

40 LET US="" 

50 LET U4-USVOÜOOOOQOOO" 

60 LET UÍ=US + M 01 11 10QU0" 

70 LET us=us+"ooiooinoo” 

80 LET U1=USVQ01 10101 10" 

90 LET US=ÜS+ ,, 01 101 00100" 

100 LET US-US+"Q0H11 1 100“ 

110 LET Ut=m+ , ‘0000009000 , ‘ . 1 

120 FOR t = l T0 70 * 

*130 LET E< I )=VRL(H1 DStWS, 1,1>I 

140 NEXT 1 

150 LET S=-l 

160 LET G=12 

1*170 LET X=INT (RND (01*501+10 — 
180 1F E(XX>1 THEN G0T0 170- 


190 GOSLJB 860 


«▼*■•200 LET 0=tNT(RNO(0)*4+l 1 

210 1F X=G+1 0 DR X=G-1 0 THEN G0T0 170 
220 IF X=G+1 0R X=G“1 THEN GOTO 170 


240 IF H=5 THEN GÜSUfl 860 


250 GOSUB 390 

*• 260 LET R*=1NKEYS 

270 IF RS=’"’ THEN GOTO 260 
280 IF RS="h“ THEN LET 0=0+1 
290 IF RS=" N” THEN LET D=D-l 
300 IF 0=5 THEN LET 0=1 
310 IF D=0 THEN LET D=4 


Vai para a sub-rotina que imprime a 
parte do labirinto que o jogador pode 
ver. 


Recebe uma instrução do jogador e 
muda o valor de D, se necessário. 


Se a instrução não c “em frente 
volta para 210. 


320 IF R*í>")(“ THEN GOTO 210 

330 IF D=1 RND EtX-101 OO THEN LET X=X-10 

340 IF 0=3 RN0 E(X+10>00 THEN LET X=X+1Q 

350 IF 0=2 RND EÍX+11O0 THEN LET X=X+1 

360 IF 0=4 RND EtX-DOO THEN LET X=X-1 

370 !F E<X)=9 THEN ‘GOTO 930 


Verifica se é possível ir em frente. 
Verifica se o jogador chegou à saída 
Se não chegou, volla para 210. 


380 GOTO 210 
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A listrem à esquerda é para o T KS‘8ll. 
Para oh outros micros, faça as mudanças 
abaixo. 





Aumente o labirinto 

Este labirinto se baseia em um 
retângulo de 10x7 posições. Para 
aumentá-lo, basta mudar as 
seguintes linhas, substituindo N 
pelo número total de posições do 
novo retângulo (N deve ser 
múltiplo de 10), 

10: Substitua 70 por N. 

50-110: Acrescente novas linhas de 
“um” e - *zeros” em 55, 65 etc,, 
de modo que o número total de 
caracteres seja N, 

120: Substitua 70 por N. 

170 e 870: Substitua 50 por N-20. 
580: Substitua 69 por N-l- d 


Efeitos sonorosl 

Se o seu micro pode 
sons, veja se consegue incluir 
um ruído assustador cada vez 
que um fantasma aparecer. 


Caracteres gráficos 1 

Substitua os símbolos +, F,„Y e# 
por caracteres gráficos. Para isso, 
terá que mudar as tinhas 590, 610, 
620, 650 e 840, ^ 


390 FOR 1=1 T0 4 
400 LET 1=1-1 

▼ 410 0N D GOTO 420,400,500,540 
420 LET F C 1 1=X-1 0*T+1 
430 LET F(2)=X-10*T 
440 LET FÍ3)=X-10#T-1 
450 G0T0 570 
460 LET FU i^X+10+T 
470 LET F <21=X+T 
480 LET F(3)=X-10+T 
490 G0T0 570 
500 LET FU >=X+10#T-1 
510 LET F(2)=X+10*T 
520 LET FO)=XU0*T + l 
530 G0T0 570 
540 LET FU >=X-T-10 
550 LET F(2) =X-T 
560 LET F (3)=X-T+1 0 
570 FOR J=1 T0 3 
580 IF FÍJKl QR F(J)>69 THEN G0T0 B40 
590 tF E( F ( J ) ) =0 THEN LET UI< ] , J) = " tt" 

600 1F E(F(J)) = 1 THEN LET V$(I,J)= 

610 1F ECF(J>)=9 THEN LET VS< 1 ,J)="+" 
620 1F E(F(J>)=2 THEN LET VSU,J>="F" 
630 NEXT J 
640 NEXT 1 
650 LET Ví tl t 2)=**Y" 

► 660 CL5 
670 PRINT 

6B0 PRINT '■**** LABIRINTO *#**" 

690 PRINT 

700 PRINT "EH FRENTE X" 

710 PRINT "DIREITA M" 

720 PRINT 'ESQUERDA N" 

730 FOR 1=1 TO 5 
740 PRINT 
750 NEXT 1 

760 FOR 1=4 TO 1 STEP-1 
770 LET PS = "" 

780 FOR J=3 T0 1 STEP-1 
790 LET P1=P$+VS(1,J) 

800 NEXT J 
810 PRINT TRB(7);PS 
820 NEXT 1 
830 RETURN 
840 LET 0SÍ 1 ,J)="*T 


£>♦▼*■• Supr inir a linha 5 

▼ 130 LET EU)=VflL(US(l TO m 
*■• 1 70 LET X=ÍNT(RN0(1 l#5O> + 10 

♦▼170 LET X=1NT(RND*50>+10 
*■•200 LET D=INT (RNDM )I4) + 1 
♦▼200 LET D=INT (RNDS4 ) + 1 

• 260 IF PEEK (-16384 127 

THEN GET AS 
*260 GET RS 

▼ 410 GOTO 380+40*0 

• 660 HOME 

*660 PRINT CHRIU47) 

*■•870 LET G*INT(RN0(1>*50)+T0 
♦▼ B70 LET G=INT(RND*50)+10 


Síib-rotina que calcula: 

a> quais os quadrados que você pode 

ver de onde está. 

- b) que caracteres colocar nesses 
quadrados. 

c) imprime instruções e a parte do 
labirinto que você pode ver. 


850 GOTO 630 ' 

860 LET E(G>=1 — 

♦▼*•• 870 LET G=1NT(RND< 0)*50) +1 0 
880 IF E(G) (> 1 THEN GOTO 870 
890 LET E(G1=2 
900 LET H=0 
910 LET S=S+1 

920 RETURN = 

930 PRINT "YGCE ESCAPOU" 

940 PRINT "EH "sSfcS+H;" MOVIMENTOS” 
950 STDP — 


Sub-rolina para mudar a posição do 
iantasma a cada cinco movimentos. 


Mensagem no Tinal do jogo. 
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f Comoo^^ 
programa v 

i funciona i 

I Depois de jogar 

algumas vezes, examine 
a listagem e veja se 
descobre como o 
programa funciona. 

I (Pista; D é uma 
I variável que diz ao 
I computador em que 
lado do quadrado — j 

■ 1, 2, 3, ou 4 — está ai 

■ letra seguinte da 
mensagem.) 


7) número da^B 
Unha 490 1 

controla a ' 

velocidade com 
que a estrela se i 
move na leia. 
Quanto menor o 
número, maior a 
Lyelocidade. 


As mensagens dos espíritos estão chegando, leira por letra. Kies 
querem que você observe as letras e entre com elas no 
computador, na ordem correta. Se você se enganar, os espíritos 

vão ficar zangados, muito zangados... míistrar á 

Preste atenção à estrela que aparece na tela. Ela lhe mostrara 

as letras que os espíritos estão enviando. 


V490 FOR T»T TO 600 HM 

500 NEXT T v.-. 

510 LET H*=" " fM 

520 GOSUfl 710 

530 NEXT 1 

540 LET 

550 LET X-0 

560 LE! 7*13 

570 GOSUB 710 

580 INPUT RS 

590 1F R* = PS TMEN GOTO 670 
600 LET G=G+1 

610 tE G=1 IHEN PRINT fi HES0 
CQHEC0U fl THEflER" 

620 lf G=2 THEN PRINT "fl LflHPHOfl 
ESTOUROU 1 

630 1E G=3 THEN GOTO 730 
V640 FOR T-l T0 1000 
650 NEXT T 
660 GOTO 40 
670 LET S=S*N 
680 1E S(50 THEN G0T0 40 
690 PRINT "0S ESPÍRITOS SE FORHN 
700 StOP 

710 PR1NT864IY+28X,flí ; 

720 RETUflN 

730 PRINT "UH PflR de HflOS PEGAJOSAS 
APERTOU 0 SEU PESCOCCT 
740 STOP 


10 LET S-0 
20 LET G=0 
30 LET €5=64 
«•40 CLS 
50 PRlHT 

60 PRINT TflRtSl ; “SESSÃO ESPIRITA 
70 EDR 1-1 T0 8 
ao LET X=6+l 
90 LET 7*5 

10Ò LET RI=CHRÍ(CS+1) 
no GOSUB 710 
120 LET 7-11 

130 LET Rl=CHR*lCS+22-l> 

140 GGSUB 710 

150 NEXT I 

160 FOR 1=1 TO 5 

170 LET X=5 

ISO LET 7=5+1 

190 LET R»=CHR*(CS+27-l 1 

200 GGSUB 710 

210 LET X=16 

220 LET 8*=CH«ieS+fl+n 

230 GOSUB 710 

240 NEXT l 

250 LET PI*"" 

*.*■• 260 LET N=lNT(RH0(0>M+3) 

270 E0R 1 = 1 T0 N 
280 LET A*="t" 

m- a- *290 LET L=1NT (RND<01Í26+1T 
300 LET St=CHRttCS+L> 

310 LET Pl=PS+St 
320 LET 0=4 

330 1F LC22 THEN LET D*3 
340 IF LT14 THEH LET 0=2 
350 1E L<9 IHEN LET D=t 
« 360 QN D G0T0 370,400.430.460 
370 LET 7=6 
300 LET X = L+6 
390 GOTO 400 
400 LET X=15 
410 LET Y=L-3 
420 GOTO 480 
430 LET 7=10 

440 LET X=28-L ^ 

450 GOTO 400 

460 LET X=6 MH 

4?o 7=32 -l ■Mi 

480 G0SU6 710 


n TRS-80. Para os 
udanças abaixo. 


A listagem acima c para 
outros micros, faça as m 


• 40 HQHE 

.;3 0 6o ? fir H ^uíS!u.4+3i 

*▼260 LET N=lNTÍRH0t4+3> 

■•290 LET U-lHTCM»fl»f*+U 
LET L=IHT<HND*26+I> 

V 360 GOTO 340+30*0 

▼ 490 FOR T-í TD 100 

▼ M0 FQft T-l T0 300 
0710 PRJWTe32*Y+2*X.Rtí 

• 710 UTRBn)-HTRBÍX+n»PRlNT Rí 

▼ 710 PRlHT RI V . X ; fi* ; 

*■710 LÜCftTE X.T :PRINT fl* 

▼ 7V0 PRINT ChRSílíüFOR K = 1 TO YsPftlHT 

NEXTfPRiMT TRBÍXÍíRI 


Respostas dos problemas 


Pesadelo (página 3) 


«▼*■•100 LET NS=CHRS< TNT ( R ND (0 >*24+45 J ) 
110 PR TNT TRB<5) ;NS 
230 IF FION1 THEN QDTO 250 
▼ 240 LET S*S+10+ÍRSC(NÍ)-45> 

100 LET N5=ÇHR1( INTíRNDt 1 1*24+45) ) 
100 LET NS=CHRS ( IKT ( RNDÍ24+65 ) } 
▼240 LET S»S+10+(C00 EíNI>-65> 


1 


O Mago dos Números (página 5) 


T 


5 LET L=0 
4 LET U-0 
355 LET L=L+1 — 

360 G0T0 390 

330 LET W»g +1 

390 PR1NT 
400 PR IHT "V0CE 
410 PR1NT 

420 PRIMT ” "-U. 

430 FOR 0=1 T0 1000 
440 NEXT O 

450 GOTO 20 




umente este 
número nos 
micros mais velozes. 


-Escolhe uma letra e a mostra na tela. 
Verifica se a tecia apertada está certa. 
Aumenta a contagem, que depende da 
letra <assim, por exemplo, Z vaie mais 
que A). 

/"Repare nas 
( diferentes versões 
l para diferentes 
Xmicros, 

- Inicializa o numero de vitórias e 
derrotas. 

Aumenta o número de vezes que você 
perdeu. 

■ Aumenta o número de vezes que você 
ganhou. 

■ imprime a contagem. 

Pausa para que você possa ver a 
contagem . 

Volta para outra tentativa. 




Mulher-Aranha (página 9} 


5 LET NG=0 

355 LET NG=NG+1 

360 IF GI=TS THEN GOTO 370 
342 PRINT "ERRRD0! 1 

364 LET G=G+5 


Inicializa o número de palpites. 
Incrementa o número de palpites. 

Se o palpite está certo, encerra o jogo. 
Imprime mensagem dizendo que o 
jogador errou. 

Aumenta de 5 o número de tentativas 




366 IF NG=2 THEN G0T0 410 
368 GOTO 230 


errado. 

Se você errou dois palpites, o jogo 
termina. 

-Volta para a tentativa seguinte. 


Nota especial para os usuários do TK-2000* 

indic>d “ s *" * •»«*• co» «. 

nni. PEEK (-14334) >127 THEN GET RS 

onde nnn é o número da linha e 4t í n j 

iuiu RS-—ICRLL -143971 iF PEEK (-1 4303 )í 0 THEN variavel * substitua esta linha por 

e acrescente as seguintes linhas: * 

1 DflTR 169,255,141,0,192,7? 

2 DRTR 14,192,141,255,191,96 

3 FOR 1—14397 T0 -143B4 

4 RERD RiPOJÍE I,R:NEXT 1 


acrescente a ° MSX: 

5 R=RMD (-TIME) 

ac^ee^T aüZf riOS * E ” *— « 

R^NDDM I ZE VAL < R X GHT $(TI htEifc , E > > 


trr 





Guias Práticos de Wicrocomputa 



D 1 1 

- iâSBSESiw 

iAsn 


Éífii» 

ir 

ãgi. 

\ 

r ■*** «. ■ 

ShP j&ffl i- v 

Qflr jjr/ Síjji .•> 

j «n»i 4 un*« . 1 4T 

líl 

V|ssiãj9| 'jàí. 



d - 

pfl| 



TUDO O QUE VOCÊ PRECISA 
SA BER SOBRE MICROCOMPUTADOR 

maravilhas que eles podem tazer 


J 










NOVOS * COLORIDOS * FASCINANTES 


à 4 
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